home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx / savepalette.amicad < prev    next >
Text File  |  1999-12-06  |  993b  |  37 lines
  1. /* Sauvegarde de la palette courante dans un fichier
  2.    Le fichier sauvé peut être relu par le menu Préférences/Configuration/Charger
  3.    Version 1.00: 23 avril 1998
  4.    Version 1.01: 21 février 1999 (modif appel REQFILE)
  5.    $VER: 1.01, © R.Florac (Chez Corbin, 21/02/1999) */
  6.  
  7. options results     /* indispensable pour récupérer le résultat des macros */
  8.  
  9. signal on error     /* pour l'interception des erreurs */
  10. signal on syntax
  11.  
  12. 'REQFILE("Nom du fichier destination?", "", "")'; fichier=result
  13. if fichier ~="" then do
  14.     if open(file, fichier, 'W') then do
  15.     call writeln(file, "AmiCADPrefs 1.1")
  16.     call writeln(file, "[Palette]")
  17.     do color=0 to 15
  18.         c="Color"||color||"="
  19.         'GETCOLOR('color')'; c=c||result
  20.         call writeln(file,c)
  21.     end
  22.     close(file)
  23.     end
  24. end
  25.  
  26. exit
  27.  
  28. /* Traitement des erreurs, interruption du programme */
  29. syntax:
  30. erreur=RC
  31. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  32. exit
  33.  
  34. error:
  35. 'MESSAGE("Erreur en ligne 'SIGL'")'
  36. exit
  37.